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Vila 13 So Y= 2 CPS ERS“ GROUP NEWSLETTER 
ISSUE NUMBER 1 - JANUARY/FEBRUARY 1980 


SYM-PHYSIS is a bimonthly publication of the SYM Users’ Groury F. 0. 
Box 315y Chicory CA. 95927, SYM-PHYSIS and the SYM Users’ Grour (SUG) 
are in no way associated with Sunertek Systems Corroration (SSC), and 
SSC has no responsibility for the contents of SYM-FHYSIS. SYM is a 
redistered trademark of SSC. SYM-FHYSIS, from the Greek, means the 
state of srowing todether, to make grows to bring forth. 


We welcome for Publication all articles dealing with any asrect of the 
SYM-1y and its very close relatives. Authors retain all commercial 
copyrights. Portions of SYM-PHYSIS may be rerroduced by clubs and ed- 
ucational institutions, and adaptations of Frograms for other computers 
may be freely Published» with full credit given and comrlimentary cories 
Provided to SYM-PHYSIS and the original author(s). Please include a 
self-addressed stamred envelore with all corresrondence. 


Editor/Publisher? H. Re “*Lux* Luxenbers 
Business/Circulation?! Jean Luxenbers 


SUBSCRIPTION RATES? 

USA/Canada $9.00 for a volume of 6 issues} overseas $12.50. Make checks 
rayable in US dollars to "SYM Users’ Grourrs" F. QO. Box 3157 Chico» 

CA 95927» Telerhone (9146) 895-8751. — 


Copies, of the Introductory Issuer while they last, ere evailable for 
$1.50 Postraid anywhere in the world. 
EDITOR’S NOTES: 


We were aquite unrrerared for the deluge of subscriptions, articles for 

Publications, and rurchase orders which besan arriving within = few days 

of the mailing of the Introductory Issue. We were esrecially surrrised 
at the larde number of overseas subscribersy since we had not realized 

so many SYM-1ls had been sold abroad, 


We wish to thank Syunertek Sustems Corroration for their helr and coor- 
eration in getting the SYM~-1 Users’ Grour and SYM-FHYSIS soins», by the 
Printing and mailing of the Introductory Issuers and we hore that the 
SYM-biotic relationhip between SSC and SUG continues, 


We did expect many questions about features of the SYM-1 hardware and 
firmware and many auestions bedinning with "How do I... «"* so we 
were not too surprised by these. Where the answers were easy, we wrote 
immediately, Where the auestions were not so easy to answer, we are 
still “researchinsgs" and we will answer as soon a5 Fossible. Many of 
your questions about the features of SUPERMON are answered in the rro- 
grams and articles in this issue. 


This issue and the Introductory Issue both emrhasize Utility Programs, 
We feel that having rrograms such as RELOCATE, DISASSEMBLE, FINIly RE- 
NUMBER? MERGE? etc. om cally make rrosgramming a less frustrating task. 
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Now that the most important utility rrodrams are available, future issues ° 
will concentrate on arrlications. 

One of our colleasues» Tom Gettys»y Lecturer in Mathematics at California 
State Universitys Chicory and I are just beginning to interface dual 
mini-disks to our systems, RAE has built in linkages for disk (these are 
not described in the manual)» BASIC links for SAVE and LOAD are in rage 
zeros and can be trarred to transfer to disksy and MON can have .S3 and 
+L3 added for disk transfers. We are also "PEEKins" around in BASIC so 
that we can use its subroutines for our own rurroses. We will keer you 
Frosted on our progress in these areas, 


We have been asked by many subscribers for our recommendations on how 

to implement the exransion carabilities of the SYM-1s i.e.» what sort 

of motherboard should they buy? Believe it or noty we have no recom-— 
mendations to make. Our system is laid out flat on a 2ft x 2ft board» 
which sits on 2 work table. The various add-on boards lie flat on the 
surrortins board. We have a 16K memory board designed for the Motorola 
EXORCISOR Buss cabled to the exransion rorts and will be adding @ disk. 
controller designed for the KIM-4 Buss in rarallel to the exransion Fort. 
Various D/A boards and rrototyring sockets sare cabled to the arrlications 
connectors. The system does get dusty but it is working. If we had any 
recommendation at 211 to maker it would be for you to decide for yourself 
which you would like the best. Note that while Commodore is "“suprorting* 
the KIM-4 Bussy the other two surrliers of the 65XX familys Syunertek and 
Rockwell Internationals ere surrorting the EXORCISOR Buss? this will 

mean increased commonality between 65XX and 68XX systems. 


We are tabulating the data on the subscrirtion blanks you sent in to 


determine what the tyrical SYM system looks likes and there is mo such 


thing. There is mo such rerson as a tyurical SYM user either. We do feels 
however, that rerhars half of the material in each issue will be of value 
to each user or system, no matter what his (there are no hers!) back- 
sround or system carabilities. We certainly hore so. 

There were more articles submitted then we had room forys and this will 
continue to be the casey since the majority of subscribers voted for 
commented source coders rather than the srace-saving obJect code dumrs. 

We had some excellent tutorial articles om the keyboard/disrlay inter- 
facer Power-on resets cassette rroblemsy etc. There were some great 
Programs which it hurt us to leave out. If the authors give rermission,s 
we will rublish the titles and descrirtions of these items, and offer 
them for sale by the half-ounce (2 pases rlus envelore rer half-ounce),. 
Not beings facetious herey overseas airmail is $0.31 rer half-ounce! 


COMING ATTRACTIONS: 


In Issue No 2 we will (really) set around to graphics and musics with 
both hardware and software considerations (e.g. D/A converters), and 
lots of references. We will include oscilloscore and terminal srarhics 
and include a rrogram by Carl Moser (rart BASIC/rart 6502) which shows 
how to mar the CRT terminal memory into a rortion of the SYM memory to 
Provide for more interactive carability. Also a number of very shorty 
but sweeter utilities will be published, 


SPECIAL NOTICE RE RAE-1/2 

The two chirp version of RAE-1/2 is now available through the SYM Users’ 
Grour. If you have been worried about not having enough ROM sockets on 
the SYM to hold both BAS-1 and the two chir version of RAE-1/2» see the 
article by George Wellsy on pase 18 of this issuer for how to make the 
sockets do double duty. The addition of RAE to BAS and SUPERMON mekes 
SYM-1 the most Powerful and versatile single board computer available 
today. We would not have even considered rublishins SYM-PHYSIS without 
the use of RAE as 2 word processor. Ordering information on back pase. 
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ASSEMBLY LANGUAGE FROGRAMMING 
The followings Parasrarhssy written by Tom Gettyss extracted from the RAE-1 
Reference Manual» exrress beautifully the advantages of switching over 
from "hand-assembly* to the use of 2 symbolic assembler as early as is 
financially reracticaly that is as soon as you can set a terminal? 


An assembler is a rrosram which allows the user to 
compose and enter rrosgrams at the machine lansuase 
level in a form that is much more convenient than 
actual machine code. The assembler accerts mnem- 
onic names for individual instructions, allows sym- 
bolic names to be assidned to memory locations and 
date, provides for address arithmetic in terms of 
symbolic namesy and certain other featuresy derend- 
ing on the sorhistication of the assembler in aues- 
tion. 


It is commonly thought that the rrimary feature of- 
fered by an assembler is that of writings machine in- 
structions in @ more convenient forme Howevery this 
is only one aspect of the advantase of an assemblers 
and rerhars not even the most sisnificant. The use 
of symbolic names to rerresent mumbers makes vari- 
ables of what most likely would have been considered 
constants. The very presence of symbols bestows 2 
generality and flexibility to 8s rrogram which other- 
wise might have seemed quite risgid. This encourages 
the rrogrammer to abstract the immediate rroblem and 
rerhars develor a more adartable rrosram. Also» 
since the actual calculation or assignment of a val- 
ue to a symbol can be deferred, the develorment of 
logically serarate modules cam proceed freely. Fro- 
grams so organized become much more readable and 
manadeabley both in their maintenance and amenabil- 
ity to revision. 


The least exrensivey smallesty 6502 symbolic assembler/editor I know of is 
Robert Denison’s 2K Symbolic Assembler (2KSA)s one of the best ones I know 
of is Synertek’s RAE-1» in ROM. If you have only the on-board 4K of RAM», 
consider the 2KSA. If you have also an extra BK at 2000-3FFFs and don’t 
mind cassette loadindys consider Carl Moser’s Macro-Assembler/Text Editor 
(ASSM/TED) for the SYM-1. The 2KSA is ideal for minimal systemsy ASSM/TED 
and: RAET1 can also be used in word rrocessing systems. 


As you rrobably have discovered by. this timer there is no “standard*® 

6502 assembly language syntax. Bob Trirrs in am editorial im MICRO, 

No. 2 (Dec 77-Jan 78)» saidy (and I auote!) * . « MOS Technolosy syntax 

is so horrible." Hal Chamberlinsy in MICROs No. 4 (Arril~May 1978) took. 

@ very strongly orrosing viewroint. In any event, the controversy centers 
on whether the addressing mode should be indicated in the orcode field or 
im the operand field. I have.used both: and have no strons rreference, 
For the benefit of newcomers to assembly language Frogramming a conversion 
table is rrovided belows with notes describing minor variations in syntax 
within the two maJor schools of thought. 


Also shown below is an example of the use of 2KSA for a simple Frosram. 
The full fower of a symbolic assembler is arrarents howeverr only when it 
becomes necessary to modify the rrodram to incorrorate new features? such 
asr in the example diveny to relocate and to include JSR BEEF. 
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EXAMPLE OF USE OF 2KSA 


SSC Technical Note #49» December 1978» (rases 12 and 13 of "Technical 
Notes") fFresents a Rotating Disrlay rrogram in MOS Technolosy assembly 
form. Presented here is the same rrogram im 2KSA with the following 
modifications: 


1) Since 2KSA occuries O200-O9FF the rrogram is assembled at the 
2KSA default location OC80» rather than at 0200. The Frogram is named 
"DSPLY"» 

2) Since 2KSA does not Fermit absolute addressing within a moduley 
the final JMP is replaced with CLV/BVC (other methods for forcing an 
unconditional branch may be substituted), 

3) FILE has been moved to OD00 and COUNT has been moved to 0060 
to avoid conflict with 2KSA and its pase zero variables (0000-005K),. 

4) FILE (OD00-0006) contains the segment codes for “HELLO ", 


Following -ASSEM to assembles -PRINT OOTO31 to Frint the obJect/source 

code summary, and -SYM++ to print the origin location and symbol table» 
SUPERMON was called with $. (For the Purrose of this examples the ESC 

code 1B at 0774 was replaced with the $ code 24 to rrovide a rrintahle 

character.) The frrogram at 0100 (ending with BRK) is a patch to trans- 
fer selected rointers from pase zero to unused memory in rase OB, The 

source coder symbol tables and Pointers were then dumped to cassete. 


The second printout shows the method used to reenter» relocatey modifyys 
and store the obJect code for 2a Freviously saved source code. The ratch 
at 0100 (same as the one mentioned above) and the method for relocation of 
the orisin can be written in @ more elesant form. The form siven here is 
the KIM version arrearing in the first urdate to the 2KSA. After the 
object code is stored, exit is made with $ (or ESC) to the monitors the 
data for FILE is entered at OD00» and the frogram is run (successfully) 
at OE00. There was no reauirement to use either -PRINT or -SYM..» but 
these were entered to show the new orisins an added entry to the sym- 

dol tables» and the corrected object code. Source code can be saved on 
tare only rrior to -STOREy since -STORE erases all local labels. 


The addressesy -OCOO» etc., Provided as rromets by 2KSA are for the 
source code storage area. In the obJect/source code rrintoutys the first 
six columns are the object coder and the last two columns are the obJect 
code addresses relative to the origin. The remaining columns are the 
source code. The O1 and 06 followings DISBUF are additive offsets to 
DISKUFs i.e.» DISBUF+1 and DISBUF+6 are being specified. 


In the printout below entries made by the user are enclosed within 
"frames*# items outside the frames are 2KSA-Senerated rromets and outruts. 


One of the interesting features of 2KSA is thaty due to the method of 
encoding the source code for storase and rrocessingds the source code and 
the obJect code are exactly the same lengthy and corresrond byute-by-byte. 


This example does not show error messages (since mo errors were made!) or 
the full editing carability provided by -INSRT to insert, deletes cor- 
rect, replace, or arrend linesy derendins om the line number syntax 
entered, 
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INITIAL ENTRY 


G OSE8 
PF ASSGN 


CYCLE 
200689 TWO 


DOF? 


B941A6 THREE 


BI46A6 
88 
Sonn 


= ocaq-syn | 


OF FROGRAM FROM KEYBOARD 


Fite 
DNISBUF 
SCANIS 
COUNT 
ACCESS 


GSPLY 


ONE 


CYCLE 


TWO 


THREE 


OOTOS1 
JSR 
LUY# 
LDIAY 
STAY 
DEY 
BPL 
LDA€ 
STAZ 
JSR 
DECZ 
BNE 
LIA 
PHA 
LDY# 
LDAY 
STAY 
INY 
CPY# 
BNE 
PLA 
STA 
CLV 
RVC 


on0o0 
Ab4O 
8906 
0060 
BRB 


JSR, 
LOY# 
LDAY 
STAY 
DEY 
BPL 
LIA 
STAZ 
JSR 
DECZ 
BNE 
LIA 
PHA 
LIV 
LDAY 
STAY 
INY 
CFY# 
BNE 
PLA 
STA 
CLY 
BVC 


DISBUF 


ONE 
FF 
COUNT 
SCANIS 
COUNT 
TWO 
DISBUF 


00 
DISBUF O14 
DISBUF 


06 
THREE 


DISBUF 06 


CYCLE 


ACCESS 
06 
FILE 
DISBUF 


ONE 
FF 
COUNT 
SCANIIS 
COUNT 
TWO 
DISBUF 


00 
DISBUF 
LISBUF 


06 
THREE 


DISBUF 


CYCLE 


2A 
2 

2E 
2F 


o1 


. 06 


OC80.. 

THREE OC1F 
TWO oc1i2 
CYCLE OCOE 
ONE ocos 
DSPLY oOCOO 
ACCESS 8B86 
COUNT 0060 


SCANIIS 8906 
NISRUF Aé40 
FILE OL00 
~INSRT 0965 
~PRINT 0900 
~STORE O7A6 
~SYMe+ O71F 
~-ASSEM O6EB 
~LOCAL 0665 
PREDEF 0672 
?REGIN 0610 
PASSGN_O62E 


~ 0c3i ] 
0 “ 


02764 
G 0100 


011070 

S2 0120A0070 
S2 01%0A0070C7F 
S2 012%0A0070C7F 


4 


¢ 


* 


RE-ENTRY OF SOURCE CODE FROM TAPE 


fos] 
sea eae 


Q77A70 

L2 O01 

IG O100 
011070 
‘H-00a0] 
0040780900 
0041 eke 


? OC31-LOCAL BEEP 
~LOCA 

- 0c31 

- 0Ciz 

- OC1S 

- 0034 ‘ 

20868B DSFLY JSR 

A006 LOY# 
B9000D ONE LIVAY 
9940AG STAY 
88 DEY 

LOF7 BPL 

AIFF CYCLE LDA 
8560 STAZ 
207289 JSR 


8972 


ACCESS 00 
06 03 
FILE 0S 
DISBRUF 08 

OR 
ONE oc 
EE OE 
COUNT 10 
BEEP 12 


SYM-PHYSIS 1-5 


INSPLY OCOO 
ACCESS 8B86 
COUNT 0060 
SCANDIS 8906 
NISBUF A640 
FILE O00 
-INSRT 0965 
“FRINT O90L 
~STORE O7A6 
~SYMee O71F 
-ASSEM O6EB 
-LOCAL 0665 
PREDEF 0672 
PREGIN 0610 
PASSGN 062E 


~- 0C34-STORE 


ir 
O77A19 


ADDRESSING MODE SYNTAX COMPARISIONS 


200689 TWO JSR SCANDIS 1S 
C660 DECZ COUNT 18 
DOF? BNE Two 1A 
AL40AS LDA DISBUF ic 
48 FHA 1F 
AOOD LOY+# 00 20 
B941A6 THREE LIAY DISBUF 01 22 
9940R6 STAY DISBUF 25 
cs INY 28 
C006 CPY# 06 29 
DOFS BNE THREE 2k 
68 PLA 20 
8L46A6 STA DISBUF 06 2E 
B8 CLY 31 
SOLA BYVC CYCLE 32 
= ocsd-syn.. | 
OEOO.. 
BEEP 8972 
THREE O0C22 
TWO ocis 
CYCLE OCOE 
ONE ocos 
MODE 

1. Absolute 

2. Implied 

3. Relative 

4. Immediate 

S. Zero Pase 

6+ Accumulator 

7+ Absolute Indexed X 

8. Absolute Indexed Y 

9. Zero Pase Indexed X 

10. Zero Pase Indexed Y 

11. Indirect 

12. Indexed X Indirect 

13. Indirect Indexed Y 

Note 1: 


in the orcode field, 


field. 


In RAE-1 


Th On00 
0D00)74 79 38 38 3F 00 00 
1G OEOO 


2KSA RAE-1 
+ +... 

Z X55 

A A 

x mn ed 

y ar PN 
ZX KX 
ZN; KY 
I CS) 
Ix a KD 
IY Coy: 


it is in 


In 2KSA the addressing mode information is 
the orerand 


Note 2! In MOS Technolosy/Sustem 65 syntax the"x* 
to denote zero rase addressing is not used. Other- 


wise identical with RAE-1. 


NOTE 33 
immediate mode instead of 


tical with 2KSA,. 


Miscellaneous Notes on 2KSA? 
a single space tabs to the next field, 


the -SYM.. 


The cold start is at O5B8, 
way to relocate the oridin is to rerlace the 
0681 and O9DO with "-"* 


(2D) + 


2KSA is self-formattingys 


In MICRO magazine syntax IM is used for 
Otherwise iden-— 


iseer entry of 


The first line rrinted efter 


i al 


command is the module’s origin address followed by “s+"- 
the warm start is at OSD6, 
(3F) at locations 
then use -REBEF before -STORE. 


A more eledant 


The ratch 


at 0100 can then be modified to jump to the warm start (4C D6 O05). 
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RELOCATE FOR THE SYM~-1 

If you are limited to hand’ assembly, or even if you are nots the rrosram 
RELOCATE: adarted from Jim Butterfield’s rrosram in the First Book of 
KIM» can be vers useful. Since the Fublished Frogram is well commented, 
comments have been omitted from this version. Be careful with RELOCATE: 
a tare backur of the orisdinal rrogram is advisable. Here ere the rules 
for RELOCATE? 

1. Frosgrams to be relocated should have an FF inserted after 
the last executable instruction and before any tables, 

2. RELOCATE will modify only instructions between the start 
address and the FFy but assumes any addresses referring to 
tables and rrosgrams beyond the FF and ur to the rage limit 
are to he modified, 

3. RELOCATE will take care of all relative addresses but will 
sive no warning if you have “srread* the rrosram too far. 

4. RELOCATE will take care of all absolute addresses if they 
are not below the start of the rrogram or above the rage 
limit (set by default to 80). 

5. RELOCATE will NOT handle vectors or addresses in tables. 
These must be handled “manually. * 

6. After usind RELOCATE use .B with three rarameters to do the 
actual moving. 

7. Sometimesy but not alwaysry you can use .B before .R»y for 
examples when down-movingd but not when ur-movings an entire 
Pprodram. This is because when you block move an entire 
Program up before using RELOCATE 211 absolute addresses 
within the program are now below the start of the rrodrams 
and will not be modified, 

The rarameters have the followina meaninsas? 
Pi is the signed "adjustments" eds» 
0004 uP 04 bytes 
FFFC down 04 bytes 
0200 ur 02 Frases 
FEOO down 02 rages 

P2 is the rrogram starting address. 

P3 is the start address of the block to be moved, 

It will eaual P2 if the entire rrogram is to be moved. 
It will be greater than P2 if a "Sar" is to be orened 
or closed, 


Two examples of the use of RELOCATE are siven followings the listings. 


MORE SUPERMON EXTENSIONS 


Elsewhere in this issue are examples of how to add mew commands of 
*"recosnized" syntax to the monitor, Several of you have asked about the 
new unrecosnized syntax vector in MON 1.1. Here are some hints om its 
use. Suppose you wish to include "named" tare saves and loads to the 
monitors e.d+* S2 BLACKJACKs0200%0735» or L2 BLACKJACK. This would be 
quite elegant, no? This is easily done by rointinga URSVEC to sub- 
routines to do the Job. Perhars we’ll publish the solution mext issue. 
Note that URSVEC is called whenever either a delimiter other than 2 
comma is used, or more than three rarameters are entered, or 2 non- 
hex character is entered. It might be simpler to use @ srecial sym- 
bol before the file nmamery like % or #» since the B in BLACKJACK is 
@ hex characters and would have been “lost* before the unrecognized syn- 
tax was "recognized." While we used .DI and .R with non-recosnized 
numbers of parameters for our DISASSEMBLE and RELOCATE rrograms» if 
there had been a conflict in numbers of rarameters,s we could have used 
other letters, or the unimplemented user functions» UO throush U7» 
which ere more easily called from the hex keyrad, 2 
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MERGE AND DELETE FOR SYM BASIC 

The rurrose of this routine is to Frovide a machine lansuase means for 
merging two BASIC rrosrams on the SYM-1. As 2 side benefit» selective 
deletion (actually selective retention) is also rossible. 


The merse is accomplished in 2 sters. First» the current rrodram is 
saved in ASCII format at the tor of the memory allocated to BASIC. 

This is accomplished by chansing the outrut vector so that the ASCII 
outeut stream is trarred and sent to high memory instead of to the ter- 
minal bys the LIST commands using any of the available line number or- 
tions. A new BASIC program may be entered by using the NEW command and 
entering the rprosram from the terminals or @ rreviously SAVEd rrosgram 
may be LOADed. When you are ready to MERGE in the rreviously saved 
rProgramy the ineut vector is altered so that the ASCII inrut stream is 
obtained from hish memory instead of the keyboard. 


The instructions for use are simple! Call MERGE via the USR command. 
The Promet symbol *i" will be rrinted. There are only three valid com- 
mands’ LIST» MERGE and E. 


LIST causes the current Frogram to be saved im high memory. If a 
range is specified (e.s+r LIST 100-10000) only those lines 
within that ranse will be transferred, 


MERGE (or any word besinnins with M) causes the code saved in high 
memory to be retrieved+ If MERGE is terminated with e slash 
(/)» instead of a carriase return, terminal echo will be sur- 
Pressed during the transfer. 


E exits to BASIC. 


To delete a block of lines» use the LIST command and srecify the lines 
to be kert. Now tyre NEW to clear away the current Frosgrem: and then 
enter MERGE asain and use the MERGE command. 


This Program may be interfaced with the BASIC Terminal Control Patch 
siven in the last issue of SYM-PHYSIS by simply chandinsg the address 
INTCHR in the macro at line 1310 to the address of GET.CHR in the Ter- 
minal Control Patch. If you are using the Terminal Control Patch you 
may also wish to modify it to allow you to call MERGE with some srecieal 
cheractery as for exampley CTRL Mr instead of with USR. 


THE USR FUNCTION IN BASIC 

The first time you call the MERGE functions described elsewhere in this 
issue» you must call it as X = USR(409670) or X = USR(&"1000"70)., All 
future calls may be of the simpler form X = USK(0O)» since any time you 
call USR with just one parameter, the location of the rrevious call is 
assumed. This makes it much easier to use. Note that you must pass at 
least one Parameters even when not needed, so that the A and Y resisters 
are not preserved. If you wish USR to return a value to the callings 
variable your subroutine must load A with the high byte and Y with the 
low byte» and returns not with RTSr but with JMFP to $014C. USR in SYM 
BASIC is very versatile in allowing the rassing of multiple rarameterss 
not too many similar BASICs allow this feature. 


NEW PUBLICATION? Add to your list of reriodicals "COMPUTE. The Journal 
for Progressive Computing." This is the successor to the FET Gazette» 
and now covers all 6502 systems. Six issue subscrirtion $7.00 US and 
Canadar $22.50 Eurore Air Mails elsewhere inauire for rates. Contact 
Bob Lock, Small Systems Servicesy Inc+s P.O. Box 5119» Greensboro»s 


NC 27403, ALL PRICES OBSOLETE SYM-FHYSIS 1-8 


>ASSEMBLE LIST 


2200- 20 86 8B 
2203- AY 16 

2205- 80 60 Aé 
2208- 8D 6A AS 
220B- AP 22 

220D- 8 6E Aé 
2210- 8D 6B A6 
2213- 4C 03 80 


2216- C9 52 
2218- DO 04 
221A- EO 03 
221C- FO OA 
221E- C9 44 


2220- D0 04 
2222- EO 02 


2224- FO 05 


2226- 38 
2227- 60 


2228- 4C 61 22 
222B- AD 4A AG 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 


<> 


- 


2 <7 


URCVEC 
URSVEC 
WARM 
ACCESS 
PSL 
P2L 
Pit 
P2SCR 
PAGLIM 
POINT 
ALOC 
LIMIT 


MONITOR FATCH FOR THE SYM~-1 

FOR "RELOCATE" AND "DISASSEMBLE®* 
"RELOCATE* FOR THE SYM-1 

Fi IS THE *ALJUSTMENT* 

F2 IS THE START OF FROGRAM 

P3 IS THE LOWER BOUND FOR ADJUSTMENT 
$8000 IS THE DEFAULT UPPER BOUND 


+BA $2200 
0S 


»DE $A66C 
+DE $A669 
-DE $8003 
»DE $8886 
»DE $Aé4a 
+DE $A64C 
+DE $A64E 
»DE $829C 
»BDE $80 
DE $FE 
+DE $F3 
«DE $F4 


DISASSEM2 .DE $2000 


ow a we we 


PATCH 


RELOCATE 


DISASSEM 


; 
ERROR 


, 
RELOCATE 
DISASSEM 


PATCH NEW COMMANDS HERE 

This would be the elace to include any 
changes you wish to make to the other 
default rarametersy for example the USR 
JUMPS» interrupt vectors» etc. 


JSR ACCESS 

LUA #LyRELOCATE 
STA URCVEC+1 
STA URSVEC+1 
LDA #H»RELOCATE 
STA URCVEC+2 
STA URSVEC+2 
JMP WARM 


DEFINE RELOCATE AS .R XXXX*YYYYrZZZZ 
DEFINE DISASSEMBLE AS .D) XXXX+sYY 


CMP #’°R 

BNE DISASSEM 
CPX #03 

BEQ RELOCATEL 
CMP #’T 

BNE ERROR 

CFX #02 

BEQ DISASSEM1 


PLACE ANY OTHER NEW COMMANDS HERE 


SEC 
RTS 


PLACE JUMPS TO COMMAND SUBS HERE 


1 JMP RELOCATE2 
1 LDA PSL 


SYM-PHYSIS 1-9 


2261- 


2264- 
2265- 
Z207— 
2269- 
226A- 
226C- 
2260- 
2270- 
2273- 
2275- 
2276- 
2278- 
2278- 
2270- 
2275- 
2281- 
2283- 
2295= 
2286- 
2288- 
228A- 
228B- 
228n- 
228E— 
220F— 
2290- 
2292- 
2293- 
2294- 
2296- 
2299= 
229B- 
229C- 
2290= 
229F- 
22A1- 
22A3—- 
22A4- 
22A6- 
22A8- 
22AR- 
22AD- 
22AF- 


22R1- 


85 
Alt 
85 
Al 
85 
4c 


F2 
4c 
FO 
40) 
Fi 
00 


9C 


nC 


A6é 


AS 


toh 


hob 


0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
09710 
0920 
0930 
0940 
0950 
0960 
0970 
09780 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


STA 
LIA 
STA 
LOA 
STA 
JMP 


KGF2 

P2t 

xX$FO 
P2L+1 
x$F 1 
LISASSEM2 


;(Leave room for future expansion here) 


+BA 
3"RELOCATE" 


$2261 


ITSELF BEGINS HERE 


7RUT MAY BE MOVED ELSEWHERE 


RELOCATE2 JSR 


3(From here on 


P2SCR MOVE F2 TO FErFF 


the rrogram is almost 


sidentical with the rublished version 
sexcert for addresses and exit Point» 
jand the correction of @ wrons label) 


cLo 
LIY 
LIA 
TAY 
LIX 
TYA 
AND 
EOR 
REQ 
TEX 
BNE 
LUY 
BMI 
BEQ 
INC 
BNE 
INC 
LEY 
BNE 
BEQ 
TRIF INY 
BPL 
CLC 
RTS 
CONTINUE INY 
LDA 
TAX 
INY 
LDA 
JSR 
STA 
LEY 
TXA 
STA 
LOY 
BFL 
BRAN INY 
LIX 
LDA 
JSR 
STX 
LOX 
LIA 
cLCc 


START 


LOOF 


FOUND 


SKIP 


INEX 


#00 
(POINT) »Y 


#07 


TABiI-1+X 
TAB2-19X 
FOUND 


LOOF 
TAB3 +X 
TRIF 
BRAN 
xPOINT 
INEX 
xXFOINT+1 


SKIF 
START 


CONTINUE 


(POINT) »Y 


(FOINT) rY 
ADJUST 
(POINT) rY 


(POINT) *Y 
#03 
SKIF 


xPOINT 
*XPOINT+1 
ADJUST 
xALOC 
¥$FF 
(POINT) +Y 


SYM-PHYSIS 1-10 


22H2- 69 02 
22H4- 30 O1 
22B6- EB 
22R7~ 86 F4 

9- 18 
22BA~ 65 FE 
22BC- AA 
22R0- AS F4 
Q2BF- 65 FF 
22C1- 20 CF 22 
2204- CA 
22C5- CA 
22C6- 8A 
22067- 38 
2208- ES F3 
22CA- 91 FE 
220C- CB 
22CN- 10 BO 
22CF- C9 80 


22D1- BO 15 


2203- Ci 4B Aé 
2206- DO 03 
2208- EC 4A A6é 
220B- 90 OB 
22DD- 48 

22DE- 8A 

22DF- 18 

22E0- 6D 4E ASG 
22E3- AA 

22E4- 68 

22E5- 6D 4F Aé 
22E8- 60 

Bake (FE 


22EA- OC iF OD 
22ED- 87 iF FF 
22F0- 03 

22F1- OC 19 08 
22F4- 00 10 20 
22F7- 03 

22F8- 02 FF FF 
22FR~- 01 01 00 
22FE~ FF FE 


LABEL FILE? £ / 


ZURCVEC=A66C 
/ACCESS=8B86 
7PLL=A64E 
7POINT=O00FE 
/DISASSEM2=2000 
DISASSEM=221E 
DISASSEM1=222B 
LOOP=226C 
INEX=2285 
BRAN=22A3 
TES2=22DB 
TAB2=22F 1 
719000 9230092300 


1230 ADC #02 

1240 BMI OVER 

1250 INX 

1260 OVER STX *LIMIT 

1270 CLC 

1280 ALC xPOINT 

1290 TAX 

1300 LOA XLIMIT 

1310 ALC KPOINT+1 

1320 JSR ADJUST 

1330 DEX 

1340 DEX 

1350 TXA 

1360 SEC 

1370 SBC xALOC 

1380 STA (POINT) +Y 

1390 INY 

1400 BPL SKIF 

1410 ADJUST CMP #PAGLIM 

1420 BCS OUT 

1430 CMP FP3Lt1 

1440 BNE TES2 

1450 CPX PSL 

1460 TES2 BCC OUT 

1470 PHA 

1480 TXA 

1490 CLC 

1500 anc Pit 

1510 TAX 

1520 PLA 

1530 ADC Pitti 

1540 OUT RTS 

1550 +BY $FF sEND OF INSTRUCTIONS 

1560 TABI +BY $0C $1F $OD $87 $1F $FF $03 

1570 TAB2 +BY $0C $19 $08 $00 $10 $20 $03 

1580 TABS +BY $02 $FF $FF $01 $01 $00 $FF $FE 

1590 EN 

= EXTERNAL J 
/URSVEC=A669 /WARM=8003 
/P3L=A64A /P2L=A64C 
/P2SCR=829C /PAGLIM=0080 
/ALOC=O00F3 /LIMIT=00F4 
PATCH=2200 RELOCATE=2216 
ERRORS2226 RELOCATE1=2228 
RELOCATE2=2261 START=2264 
FOUND=2278 SKIP=227F 
TRIF=228A CONTINUE=228F 
OVER=22B7 ADJUST=22CF 
OUT=22E8 TAB1I=22EA 
TAB3=22F8 


SYM-PHYSIS i-11 


»F AAs 2230 
+V 22009 22F 
20 86 
80 6A 
80 6B 
nO 04 
TO 04 
4C 61 
An 4C 
85 Fi 


EXAMPLE 1: 


EXAMPLE 23 


RELOCATE is 

ASSEMBLE is 
1. 
2e 
3e 
4s 
ae 
Oe 
7+ 
By 
9. 


10, 
ii. 


2260 


F 

8k A? 16 8D 6D Aés90 
Aé AP 22 BD 6E Ab199 
A6 4C 03 80 CY S221 
EO 03 FO OA C9 44y IF 
EO 02 FO 05 38 60722 
22 AD 4A AG BS F2205 
Aé 85 FO AD 40 Aés RB? 
4C 00 20 AA AA AAL99 
AA AA AA AA AA AALE? 
AA AA AA AA AA AAL39 
AA AA AA AA AA AAL89 
AA AA AA AA AA AALDY 
9C 82 D8 AO 00 B1lyEA 
A2 07 98 SI EY 22919 
22 FO 03 CA DO F4s09 . 


Eliminate the NOPs (EA) in the 


of 2800 

2800 4C OS 28 EA EA DO F9 FF 
2808 AA AA AA AA AA AA AA AA 
2810 


+G 2200 


+K FFFEs2800%2805 

+V 2800 

2800 4C 03 28 EA EA LO FR FFris 
0515 

+B 28032805» 280F 

+V 2800 

2800 4C 03 28 DO FE FF AA AAr9IS 
0495 


. 


Interchange the locations of RELOCATE and 


at 2200-22FF with rossible garbage at 2231-2 


at 2000-21FF. 


Ilo the followings? 


+G 2200 to ratch Programs 
Insert FF at 211A followings last instruction 
+F AAY2230%72260 to kill sgarbese 


+R 010072000%2000 
+B 2300%2000% 21FF 
+B 2000%2200%22FF 
+R FEQO,2000%2000 
+B 2100723009 24FF 
Correct addresses 


to 
to 
to 
to 
to 
as 


relocate 

save temrorarily, 
cory RELOCATE 
relocate 

Fosition correctly 
follows: 


200C from 22 to 20 

203C from 1E to 
+G 2000 to reratch correctly 
cassette 


Save 2000-22FF on 


21 


E6716 
F721A 
C82FE 
CFy BD 
AQ» AF 
FFs AE 
B1s8A 
86r7AA 
6S5yC1 
38927 
Cy IF 
O37 RS 
18716 
A6,EB 
FF 927 
03»8A 
FE189 


Frogsram below. 


NISASSEMBLE. 
nrIs- 


SYM-FHYSIS 1-12 


1000- 
1003- 
1005- 
1008- 
100B- 
100L- 
100F- 
1011- 
1013- 
1015- 
1017- 
1019- 


8A 
BA 


Oo10 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0070 
0100 
0110 
0120 
0130 
0140 
0150 
01460 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 


+KA $1000 

+OS 

+MC $2000 

ES 
§ Soe Se Se Se a a a a a an a ee ee es 
sC a 
sC MERGE/DELETE PROGRAM FOR SYM BASIC J 
sC J 
$C COPYRIGHT 1979 BY THOMAS GETTYS ] 
sc ALL RIGHTS RESERVED J 
5c: a 
§ oar a a a a a a a a a a a a a a ee a 
5 
y 
, DOUBLE STORE MACRO DEFINITION 
, 
Hiins oMD (DATA ADDRS) 

LDA #LyDATA 

STA ADDRS 

LDA #H» DATA 

STA ADDRS+1 

+ME 
7 
; ADDRESS DECLARATIONS 
’ 
COUNT »DE $6C COMMAND CHARACTER COUNT 
MEM-END +DE $83 BASIC END OF FREE MEMORY 
TXT.PTR «DE $93 ASCII TEXT FOINTER 
RAM.PTR +DE $FA FOINTER FOR RIN SUPERMON ROUTINE 
BUF +DE $135 COMMANDT BUFFER 
SUPRESS «DE $809A USED TO SUPRESS OUTFUT 
CRLF DE $8340 PRINT CR AND LF 
RIN +DE $887E GET COMMANDS FROM RAM 
RESXAF +DE $8A3E RESTORE ALL BUT A AND F 
INTCHR + DE: $8AS8 INFUT CHARACTER 
TOUT »DE $8AAO0 TERMINAL OUTPUT 
ACCESS »DE $8B86 UNWRITE PROTEC SYS RAM 
BASIC.WARM .DE $C27E WARM START TO BASIC 
SCRA +DE $Aé3A SYS RAM USED BY RIN 
INVEC +DE $A660 INFUT TRANSFER VECTOR 
OUTVEC +DE $A663 OUTPUT TRANSFER VECTOR 
; 
¢ “MERGE* ENTRY POINT —- BEGIN MAINLINE 
, 
3 -=(PROCESS COMMAND) =- 
y 
PROMPT JSR CRLF 

LDA #’3 

JSR TOUT PRINT FROMPT SYMBOL 

JSR INTCHR 

AND #$7F 

CMP #’L LIST? 

BEQ LIST 

CMP #’°M MERGE? 

BEQ MERGE 

CMF #’E EXIT? 

BNE PROMPT IF INVALID COMMAND, IGNORE IT 


ow 


RTS RETURN TO BASIC 


-=(MERGE ROUTINE)=- SYM-PHYSIS 1-13 


101A- 
101D- 
101F- 
1L021- 
1023- 
1025- 


1027- 
1029- 
102C- 
102E- 


1031- 
1032- 
1035- 
1038- 
103A- 
103C- 
103E- 


1040- 
1042- 
1045- 
1047- 


104A- 


104B- 
1041- 
1050- 
1051- 
1054- 
1056- 
1059- 
105B- 
LOSD- 
1LOSF- 
1061- 
1063- 
1064- 
1067- 
106A- 
106C- 
106E- 
1070- 
1072- 


1075- 


1078- 
107A- 
107D- 
107F- 


BA 


Aé 


AG6 


Ab 


o1 
BA 


o1 


o1 
00 


8B 


00 
00 


0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 


0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 


0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


5 
MERGE 


MERGE.1 


owe 


LIST 


LIST.1 


oe © 


INTCHR 
#$7F 


#$0 
MERGE.1 


JSR 
AND 
CMP 
BEQ 
CMP #’/ 

BNE MERGE 
IS (SUPRESS OUTVEC+1) 


CR? 
SUPRESS OUTFUT? 


SEC POINT TO START OF TEXT 
LDA 


SBC 


MEM.END 
COUNT 


STA XTXT.FTR 
LUA *MEM.END+1 
SBC #0 


STA ¥TXT.FTRtH1 
DS (GET.CHR INVEC+1) 


RTS 
-=(LIST ROUTINE)=- 


LDY #5 

STA BUF-S»Y SAVE THE "L® 

INY INCREMENT BUFFER POINTER 
JSR INTCHR GET NEXT CHARACTER 
AND #$7F 

STA BUF-SrY AND SAVE IT 

CMP #$18 CTRL X? 

REQ FROMPT IF SO ABORT COMMANE! 
CMF #$0 CR? 

BNE LIST.1 

LIA #0 

INY 

STA BUF-S:Y MARK END OF COMMAND 


STY 
LDA 
STA 
LDA 
STA 
JSR 


COUNT SAVE CHARACTER COUNT 
xMEM-END SET UP TEXT POINTER 
xTXT.PTR 

xMEM,END+1 

xXTXT.PTRt1 

DEC.PTR 

FIX-UP VECTORS 

JSR ACCESS 

DS (BUF RAM.PTR) 


SYM-PHYSIS 1-14 


1082- 
1084- 
1087- 
1089- 


108C- 
108E- 
1091- 
1093- 


1096- 
1098- 
109B- 
1091- 


10A0- 


10A1- 
10A2- 
10A4- 
10A6- 
10A8- 
10AA- 
1OAC- 


1LOAE- 
1OB0- 
10B1- 


10B3- 
10B5- 
10B8- 
1OBA- 


10BDI- 
1OBF- 
10C2- 
10C4- 


10C7- 
10CA- 


10CD-— 
10CF- 
1oD1- 
1013- 


Aa? 
8i 
Ag? 
80 


a9 
su 
Ag 
8D 


A? 
80 
A? 
80 


60 


18 
AS 
6? 
85 
AS 
69 
85 


A? 
A8 
91 


Al 
3A 


10 


3B 


7k 
61. 
88 
62 


cb 
64 
10 


65 


93 
03 
93 
94 
00 
94 


00 
93 


Aé 


Aé 


Ab 


AG 


AS 
Aé 


Ab 


Ab 


Aé 


83 


1090 


1100 


1110 


1120 
1130 
1140 
1150 
11460 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


nS (DONE SCRA) 


nS 


(RIN INVEC+1) 


DS (OUTPUT OUTVECH1) 


RTS 


ONE cLe 
LDA 
ADC 
STA 
LDA 
ADC 
STA 


LDA 
TAY 
STA 


od 


ONE.1 


-=(AFTER LISTINGr 


ALJUST FOR THE 


*TXT.FTR 
#3 
aTXT.PTR 
*TXT.PTRt1 


#0 
KTXT.FTR+1 
FLAG ENT! 


#0 OF 


(TXT«PTR) s¥ 


RESTORE TRANSFER VECTORS 


DS (TOUT OUTVEC+1) 


DS (INTCHR INVEC+1) 


JSR 
JMP 


own. « 


CMP 
BEQ 
LDY 
STA 


UTPUT 


CRLF 
BASIC.WARM 


COME HERE )=- 


*OK* 


TEXT 


-=(SAVE ASCII TEXT IN MEMORY)=- 


#4A IF CHARACTER A LF? 
OUT.RTN IF SO» IGNORE IT 
#0 

(TXT. PTR) Y 


SYM-FHYSIS 1-15 


1LODS- 
1008- 


1009- 
1ODB- 
LODD- 
iOnF- 
1LOE2- 
1OE3- 
1OE6~- 
10E7- 
10E8- 
LOE9~ 
10EB- 


ORES 
1OFO- 
10F2- 
10F4- 
10F6- 
1OF8- 


+B 10 
«V 10 
1000 
1008 
1010 
1018 
1020 
1028 
1030 
1038 
1040 
1048 
1050 
1058 
1060 
1068 
1070 
1078 
1080 
1088 


RETURN FOR NEXT CHARACTER 


OF TEXT? 


PRINT CHARACTER 


XT FOINTER 


ALLOW LOWER CASE CHARACTERS 


TEXT FOINTER 


J TXT PTR=0093 
/SUPRESS=809A 
/RESXAF=8A3E 
/ACCESS=BB86 
7INVEC=A660 
MERGE=1014A 
MERGE. 1=1031 


20 EE 10 1410 JSR DEC.FTR ADJUST TEXT POINTER 
60 1420 QUT.RTN RTS 
1430 3 
1440 3 -=(GET CHARACTER FROM MEMORY) =-- 
1450 3 
AO 00 1460 GET.CHR LOY #0 
B1 93 1470 LDA (TXT.PTR)sY 
FO D4 1480 BEQ DONE.1 ENT! 
20 63 AS 1490 JSR OUTVEC 
AA 1500 TAX 
20 EE 10 1510 JSR DEC.PTR ADJUST TE 
68 1520 PLA 
68 1530 FLA 
8A 1540 TXA 
co OD 1550 CMP #$0i 
4C 3E 8A 1560 JMF RESXAF 
1570 3 
1580 3 -=(SUPFORT ROUTINES) =- 
1590 3 
Cé 93 1600 LEC.FTR DEC xXTXT.PTR DECREMENT 
AS 93 1610 LDA xTXT.PTR 
Co FF 1620 CMF #$FF 
LO 02 1630 BNE DEC.RTS 
Cé 94 1640 DEC ¥TXT.PTR4A 
60 1650 TEC.RTS RTS 
1660 
1670 
1680 +EN 
LABEL FILE! [£ / = EXTERNAL J 
/COUNT=006C /MEM. ENDI=0083 
/RAM.PTR=00FA /BUF=0135 
/CRLF=8341 /RIN=887E 
/ INTCHR=8A58 /TOUT=8AA0 
/ BASIC .WARM=C27E /SCRA=A63A 
/QUTVEC=A663 PROMPT=1000 
LlATA=8A58 ADIRS=A661 
LIST=104B LIST.1=1050 


DONE .1=10B3 
GET.CHR=10D9 


00720007 20FF 
00710FF 

20 83 
20 BA 
3A 40 
Ez 20 
on OE 
oA 64 
ASG AD 
85 AS 
Ag 8p 
62 60 
c8 58 
o1 18 
EF 00 
6C AS 
85 20 
Ag 35 8D 
FR Ag 
10 3B 


Ag 
29 
FO 
58 
c9 
AS6 
83 
84 
61 
AO 
BA 
FO 
cs 
83 
EE 
FA 
Al 
A6 


3A 
is a 
05 
8A 
2F 
Ag 
00 
E9 
AG 
oS 
29 
AS 
99 30 
85 93 
10 20 
00 AY 
8D 3A 
A? 7E 


20 
Cc? 
C9 
29 
no 
80 
Ev 
00 
Ag? 
99 
7F 
c9 


OUTPUT=10CI 
DEC.PTR=10EE 


DONE=10A1 
OUT. RTN=10018 
DEC.RTS=10F8 


1090 A6 AY BB BL 62 AG AP CliyFS 

1098 8D 64 Aé AP 10 BD 65 ASbsTE 
8Ar1D 10A0 60 18 AS 93 69 03 BS 93,12 
FOr7CC 10OA8 AS 94 69 00 B5 94 AM 00776 
DO»EF 10B0 AB 91 93 AP AO BD 64 Abr 22 
CIA 10B8 AY BA BI 65 AS AP SB Blty7B 
A918 10CO 61 AG6 AY BA BD 62 AS 20564 
65764 10C8 4D 83 4C 7E C2 C9 OA FO89 
00*/CB 1010 07 AO 00 91 93 20 EE 10272 
9470E 1008 60 AO 00 B1 93 FO D4 20198 
Blir6A 10E0 63 AS AA 20 EE 10 68 683k 
01741 LOE8 8A C9 OD 4C 3E BA C4 93,08 
30%7C 1OFO AS 93 C9 FF TO 02 C4 94934 
10997 10F8 60 AA AA AA AA AA AA AAr3A 
8C, 4B 7UZA 
84722 To relocate a whole number of 
abe Padesy chanse the underlined 
AI+B1 rade numbers to the new Fade 
bist number. 


SYM-PHYSIS 1-16 


TERMINAL CONTROL FATCH ADDENDUM 


In the TCF source listing Published in the Introductory Issue we forgot 

to include the RAE-1 reseudo-or .ES (Exransion Set). The default is -EC 
(Exeansion Clear) so the macro expansions were mot listed. The TRIG.START 
address should be changed to $0F68 for this version. Here are the missing 
macro exransions? 


OnEB- Ag FS OLFS- Ag 68 OE12- Ag 21 OE87~ A 5B OE9C- AP 21 
ODEA- 80 61 A6 ODF7- 80 C4 00 O£14- BD 61 AS OEB9- BD 61 AS OFSE~ BI 61 AS 
ODED- Ag OD OLFA- AP OF OE17— AY OE OE8C- A? BA OEAL- AY OE 


ODEF- 8D 62 Aé ODFC- 8D CS 00 O£19- 8D 62 AS OEBE- BD 62 AS OEAS— BI 62 AG 


INFUT LOWER-CASE WITH (OR IN SPITE OF) SUPFERMON 


By Gary Ke. Humphrey 
PSC #2 Box 12203 
AFO San Franciscor CA 96367 


The SYM Technical Notes rackese contains a short routine which allows 
ineut of lower case characters. I have been using 3 different method 
which is even shorter (see rrodgram listing). Just place these instruc- 
tions anywhere in memory (I have them at the entry to ms video driver) 
and chanse INVEC to roint to them, The return address stored on the 
stack will be changed so that your inrut routine will return to the 
monitor at INRT1 (8A2D)» thereby avoiding the SUPERMON routine which 
converts lower-case characters to urrer-case,. 


1EOA- 68 PLA 


Full return address (low) from 
stack and discards 
1EORB- AY 2C LDA #2C Load new return address (low)s+. 
1E0D- 48 FHA +eeand Push it onto the stack. 


1EOE- 4C 58 BA JMP INTCHR Then set cheracter inrut. 
NOTES the Jump at 1EOE can be chansed to roint to your own inPut 
routines if different. 


SUPERMON EXTENSIONS 


Elsewhere in this issue is the rrogram RELOCATE? and in the introductory 
issue aerpreared the rrogram DISASSEMBLE. MON 1.1 currently hes the zero 
rFarameter command .R for REGISTER and the zero or one Parameter command 
«I! for DEPOSIT. The listing for RELOCATE shows how to add a two raram— 
eter .[ for DISASSEMBLE and a three raremeter «RK for RELOCATE. 

If you have entered DISASSEMBLE at 2000 and RELOCATE (including the mon-~ 
itor Patch) at 2200» you can Patch the mew commands to MON 1.1 by using. 
the command .G 2200 after every RESET. 


It should be obvious from the listings how other commands can be added and 
how the default values entered into system RAM by RESET can be reelaced 
at the same time. The CLC prior to the RTS et line 228E is to ensure 
that mo error message will be printed at the return from RELOCATE: and 
may be reauired in your other extensions. 


To call DISASSEMBLE entery for examrlery .0 2200216. The 2200 is the 
start of the rrogram to be disassembled» the 16 will sive you 22 lines 
on a CRT terminal. 
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A PROGRAM TO DISFLAY SYM-1 LED SEGMENT CODES 


By Maurie Tu Feu 
F.O., Box 257 
Lindfield» NSW 2070 
Australia 


(Orsinally written Nov ‘785 modified and documented by the editor Nov ‘79) 
This short but elegant frogram should rrove very helrful to those SYM~ 
MERS who wrote in asking for more information on how SUPFERMON subroutines 
can be used in their own frograms, It illustrates how [DISRUF anc ROTG 

at A640-A645 are used» but even more importantly, it illustrates the use 
of TV at A656 and DELAY at 835A. The value of TV (#09) at 0203 Sives a 
reasonable counting rates try varying it. DELAY rermits over-riding the 
chosen value of TVy since every time any key om the Hex Keyrad (or on the 
terminal, if you started the program with the terminal) is hits an addi- 
tional count is added. If TV=O only the keys will rroduce @ count. The 
two left hex digits will count from OO-FF and the risht-most digit will 
display the symbol for which these didits are the segment code, 


After you have this frrogram entered and working vou cam replace the re- 
dundant JSR ACCESS at 0223 and the JSR SCAND at 0244 with NOFs (since 
SCAND is included in DELAY) and eractice using RELOCATE end BLOCKMOVE to 
save the 6 bytes. The FF at 024F marks the end of the instructions (for 
use of RELOCATE). From 0250 to O25F are the segment codes for the hex 
digits 0 to F. 


«VV 200%25F 0230 Fé SI 41 Aé AY 00 BD 42792 
0200 20 86 8B AP 09 BI 56 Aéx46C 0238 Aé BD 43 AS BD 44 AS ASCA 
0208 A9 00 85 F3 AP 50 85 Fér01 0240 F3 80 45 AS 20 06 89 20704 
0210 AY 02 85 F7 DS AS F3 4AsE2 0248 SA 83 E6 F3 4C 15 02 FFv1C 
0218 4A 4A 4A 85 F5 AS F3 299FB 0250 3F 06 SB 4F 66 6D 7D 07%62 
0220 OF 85 F4 20 86 8B A4 F5r4I 0258 7F 67 77 7C 39 SE 79 719BC 
0228 Bi Fé BD 40 Ab A4 F4 Bi» BO 2FBC 


By George Wells» 1620 Victoria Places La Verner CA 91750 


I have a very simple solution to the rroblem of not having enough PROM 

sockets om board the SYM-1. All you do is stack the ROM’s one on 

tor of the other on one socket and hardwire individual chir-selects with 

Pull-uPe resistors to each of them excert the bottom one. I have done 

this with my two BASIC ROM’s in socket U21 and it works fine. I Flan to 

Put the two RAE-1/72 ROM’s into socket U22 and leave U23 available for a 

2716 EPROM. This is what I did? 

1. Remove jumper L-13. 

2+ Add 3.3K resistor from rad 13 to feed-throush rad near rin 16 of 
I.C. ULL (+5¥),. 

3. Remove ROM 02-0020-01 from socket U22 and spring its leads slightly 
inward excerpt for rin 20 (chirp select) which should be bent 
slightly outward, 

4. Place ROM 02-0020-01 on tor of ROM 02-0019-01 makings sure that all 
corresronding rins are making contact with each other excert of 
course Fin 20. Secure with tare if desired, 

Se Hand wrar a riece of 30-sause wire around Fin 20 of the tor ROM and 
bring the other end to the jumper between rads 13 and 14, 


Everybody ought to get Blalock’s 4K RAM expansion board. Imasdine that-- 
30K of ROM/RAM on board the SYM. I’m goings to have to set a new Power 


supply! 
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FAST FOURIER TRANSFORM 


Here is a Fast Fourier Transform rrosram for those who requested it. 
The sgrarh drawings Portion has been omitted because it was terminal 
dependents you will have to add your own. This Frogram is based very 
closely on the program diven by William Il, Stanley and Steven J. Feter- 
son in "Fast Fourier Transforms on Your Home Computer," BYTE Masazines 


Decembery 1978. First a sample runs then the listings: 


RUN 
Number of samples? 16 


The input function is of the form 
sin (2 pi f t) + 0.5 cos (4 pi f t)» 


where f is the freauency. 


Freauency? 3 
List inrut function 7? Y 


N Real Imag Mas Fhase 
° +500000001 ° +500000001 C0) 

1 +570326142 0 +570326142 0 

2 +707106782 t0) + 707106782 0 

3 — 0291300428 0 +0291300428 180 
4 “1,5 1) 1.5 180 
5 ~—.0291300383 0 +0291300383 180 
6 +707106781 (0) - 707106781 (0) 
De 0570326143 0 570326143 (0) 

8 PAPPIPIPIT ° SAPIPPPIPD? ° 

9 1427743292 ° 1.27743292 180 
10 -.707106773 0 +707106779 180 
11 +736236824 o?) +736236825 0 
12 oe] i) 5 i) 
13 + 736236823 ty) + 736236823 0 
14. -—.707106791 ° + 707106792 180 
15. -1.27743292 ° 1.27743292 180 
16 +500000001 1) +500000001 o 
Scaling 
Computing the FFT 
Reseauencins 
List transform? Y 

N Real Imag Mas Phase 
0 10) te) 0 

az 0 ° 0) 

2 0 1) 0 

3 0 ~5 5S 270 
4 0) 0 ts) 

5 0 c0) ° 

é 225 ° +25 0 

7 t¢) i?) i) 

8 (0) 0 0 

9 10) 0) i) 

10 +25 x0) +25 ° 
ae t¢) 1) ° 

12 0 ty) (0) 

13 0 5 a] 90 
14 4) 0 ° 

15 (0) 0 0) 

16 0) 0 0 

Finished 
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1000 
1020 
1040 
10460 
1080 
1100 
1120 
1140 
1160 
1180 
1200 
1220 
1240 
1260 
1280 
1300 
1320 
1340 
13460 
1380 
1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1540 
1580 
1600 
1620 
1640 
16460 
1680 
1700 
1720 
1740 
1760 
1780 
1800 
1820 
1840 
1860 
1880 
1900 
1920 
1940 
1960 
1980 
2000 
2020 
2040 
2060 
2080 
2100 
2120 
2140 
2160 
2180 
2200 


2220 


“ee 


2240 


INPUT*Number of samples? "#N?M=LOG(N)/LOG(2) 
DIMXR(N) ¢XI (ON) SPI=3.1415926535 

PRINT:REM DEFINE THE INPUT FUNCTION 
PRINT"The ineut function is of the form’ 
PRINT"sin (2 Pi f t) + 0.5 cos (4 pi f t)s" 
FRINT"*where f is the freauency,. *{FRINT 
INPUT*Freauency? "sF:F=2xkFxXPI/N 

FORI=0TON 

F1i=FxKItXR(ID=SINCF1) 
XR(I)=XR(1)+.5*COS(2kF1) 

XI(1)=O03NEXT 
XR(0)=XR(0)/24+XR(N) 723 XRON)=XR(O) 

REM END OF FUNCTION DEFINITION 

INFUT"List inrut function ? "FAS 
IFLEFT$(A%»1)="Y * THENGOSUB1820 

PRINT "Scalins" 

FORI=OTON? XR(1I)=XRCI)/N¢XICI)=XICI)/N&NEXT 
W=-1:G0T01380 

W=+1:REM ENTER HERE FOR INVERSE 
PRINT*Computing the FFT* 
I1=N/2312=1:3V=2KPI/N 

FORJ=1TOM? 13=0:14=I1 
FORK=1TOI2:X=INT(13/11) $GOSUB2200 
IS=Y3ZR=COS (VIS) ¢ZI=WKSIN(VKIS) 
FORL=I3TOI4-1:*AR=XR(L) SAI=XI(L) 
BR=ZRAXR(L4+11)—-ZI*XI(L4+I1) 
BI=ZI¥XR(L+I1)+ZR¥XIC(L+I1) 
XR(L)=AR+BRiXI(L)=AI+BI 
XR(L4+11)=AR-BRiXI(L+11)=AI-BI 

NEXTL?$ 13=134+2k11214=144+2x11 
NEXTK211=11/2312=12k23NEXTJ 

XR(N)=XR(O) ¢XI(N)=XICO) 

PRINT *Reseauencins*® 
FORK=OTON~-1? X=K? GOSUB2200 

IFK«<=YTHEN1740 

TR=XR(K) 3 TI=XI(CK) EXROKI=EXRCY) SXICK)=EXICY) 
XRCY)=TR?XICY)=TI 

NEXT 

INPUT*List transform? *#A$ 
IFLEFT$(A$*71)="Y"* THENGOSUB1820 

PRINT" Finished* END 

PRINT" N"sTAB(6)3 “Real"sTAB(22)s"Imas"sTAB(38) + "Mas" sTAB(S4) 3 "Fhase 
PRINT" —"sTAB(6) %"----—"% TAB( 22) 5 "----—" 5 TAB( 38) § "---"$ TAB(S4) § 8 ----— 
FORI=OTON?! XR=XR(I) 

XI=XI¢I) 

IFABS (XR) <1E-4THENXR=0 
IFABS(X1I)<1E-4THENXI=0 

XM=SQR(XR724XI72) 

IF XM=OTHENXP=0:} GOTO2040 
IFXM=OTHENXF=0!GO0TO2100 

IF XR=OTHENXP=SGN( XI) *903G0T02040 
XP=180/PIXATN(XI/ABS(XR) ) 
IFXR<OTHENXP=180-XP 

IFXP<OTHENXP=360+XP 
XP=1E-2xINT(1E2KXP+,.5) 

PRINTI+TAB(S) +XR$TABC21)9XI5 
PRINTTAB(37) §XM3 

IFXM=OTHENPRINT $$ GOTO2180 

PRINTTAB(S3) + XP 

NEXT? RETURN 
Y=O3NL=N3FORI=1TOMSN1=N1/23 IFX<N1 THEN2240 
Y=Y¥+27(I-1) $X=X-N1 
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MISCELLANEOUS GOOD THINGS 

HARDWARE: If you are into control arrlications,s or otherwise need to do 
lots of Frototyring, the “First Mate" rrovides @ very generous working 
area immediately above the SYM» effectively on-board, From one to three 
"Second Mates" bring signals from the three edge connectors om the SYM~1 
(without interfering with motherboard connections) to sockets om First 
Mate. Write to Richard Turrinsy MicroMater F.0. Box S0111* Indienarolis» 
IN 46256 for information and rrices. 


SOFTWARE: One of the best ways to imrrove your rProgramming abilities is 
to study outstanding examples. One such example is the GRAPHICS DRAWING 
COMPILER for SYM» by Hall and Moser. While the GDC has value in and of 
itselfys its real value to me was the know-how it rrovided on the design 
of comrilersys which translate programs writen in high-level languages 
into machine lansuase code for fast execution. As an example, after you 
have defined Macros CAR and CLRCAR to draw and erase the image of an 
automobile on the CRT screeny the rrosram to move the automobile 10 
units to the right is written in only 7 instructions» with a DO loor: 


DEFINE (J 10) 


DO «EXIT J) 
CLRCAR 

CAR 

POSREL (0 1) 
END 


EXIT 


RAE-1 and the GIC then senerate the machine lansuese code to do the Job. 
For additional information and prices write Carl Moser, Eastern House 


Softwares 3239 Linda Drivers Winston Salem, NC 27106. 


SPEECH SYNTHESIS: The SP-1 Sreech Synthesizer Interface ($49 Kits $469 
assembleds including commented source listings) is available to imter- 
connect the SYM-1 to the Texes Instruments "Sreak & Spell (TM)" toy 
(around $49). The interface PC board fits into the S & S im Flace of 
the battery and is driven through the 6522 VIA. One of the rrosgrams 
supplied is a hex didit speakers to read back rrosgrams or data you 
have entered. Imasine entering data with .D or .M and getting SYM 

to dive you verbal feedback! Much better than the beerer. For more 
information contact Dave Kempy East Coast Micro Products, 1307 Beltran 
Courts Odentons MD 21113, 


MISCELLANEOUS NOTES 
If you have the first printing of the MON 1.1 Enhancement Description 
be aware that 211 addresses in the listings from 84F4 through 8C70 should 
be increased by 5. The missing instructions are} 
B84F4 FO 03 BEQ DEPN 
B4F6 20 20 83 JSR OQUTQM TYPE *?" IF NG 
Cross reference table has correct addresses, (Info from Nick Vrtis.) 


The first rrintinsa of the RAE-1 Reference Manual has a tyrosrarhiceal 
error in reference to memory locations. RAE-1 actually resides in memo- 
ry locations BOOO-BFFF and EOOO-EFFF:s and there is mo conflict with BAS» 
which co-exists at COOO-CFFF and DOOO-IIFFF. If sou were able to set the 
correct jumpers for BAS you should be able to fisure out how to do so 
for RAE. Since you will be in the neighborhood anyways, vou might want 
to rearrange the Jjumrers to rermit two BAS chirs to live as cheaply as 
one in the same sockets as described elsewhere in this issue. 


The new address for the 6502 USER NOTES is: Eric Rehnker S40 S. Ranch 
View Circleys Art. 61» Anaheimy CA 92807, 
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THE PARITY BIT "*FROBLEM" 


Gary Humehrey’s rrosram "Input Lower Case . + «" has 8 very subtle bus 
which ean only be exterminated by using the Synertek rublished ver- 
sion. We elected to publish it "in sprite of" the bus because it does 
illustrate 3 novel use of the stack and because the bug itself is of 
some interest. The rrodram will work for his terminal (Video-Plus) 
and many others, but can cause hangurs on terminals which senerate 
parity bits, such as for exampley the KSR-35 TTY. Sat. Humrhrey is 
usins TINY BASICys and rrobably (as do I) uses INTCHR to rermit lower 
case inrut. Those with TINY will notice that soon after the JSK to the 
inreut link at O6B7, the accumulator is ANIled with #7F to clear rarity 
at O6BE before all the checks for NUL, RUBOUT, CRy etc. are made. 


When I first used 2KSAy over a year asor I used INTCHR for its inpruty 
and it took me many hours of experimenting srread out over several 
weeks to find out why 2KSA worked at school with an ASK-33 but not at 
home with a KSR-35. Even went to the trouble of bringing the -33 

home and the -35 to school. Only when I found that the trouble was 
with the terminally and not its location, did I write a simple rrogram to 
print out the ASCII codes for the input characters to find out that 
the -35 used 3 rarity bit. The 2KSA does not erase the rarity bit 
(but it does mot use lower case either) so INCHR is its reauired inrut 
roint. Can’t blame Denison for this omission, since it was not needed 
for KIM, 


SYM-PATHY 


One of our overseas subscribers roints out that a KTM-2 costs over $700 

in his countrys and that it will be a lona time before he can afford one, 
He does have an oscilloscore, however, and asks for hele in its use. My 
recommendation to himy and to others, in the same rosition is as follows; 


Firsty implement the Oscilloscore Output Feature as described in Charter 
7 of the SYM Reference Manual» and study the listing until you under- 
stand every line of the programy including the remark following line 
0088. If you note that the hex keyrad has 25 keys whose values are 
assigned throush softwarery you will see that you can use it as a tyure- 
writer keyboard by diving each key two meaninss. Dedicate one key to 
shifting or unshiftinga the followings keystrokes, and you can then enter 
48 alrehanumericss Punctuation marks, and some control characters with 
the hex keypad. Use 2 reaper overlay over the rad» with the dual names 
for each key written on it. Rerlace the ASCII table im ROM and the 
character set table in ease 04 by tables of your own design and write 
8 rrogram that will enable you to use the hex keyrad and the score 

as a 32 characters one liner terminal. If you add a third table to 
denerate the correct ASCII values for your keystrokes you can change 
INVEC and OQUTVEC to roint to these new I/0 routines you have written, 
If you can interface an inexpensive QWERTY keyboard to one of the 

PIAS your input will be easier, but the outrut will be the same. The 
DISASSEMBLE rrosram can easily be modified to use the score as its 
outrut. Hardware is the bid expense for hobbyists, software costs 
only time and patience! Before I got my terminals I modified a clock 
Program for the SYM (A Digital Clock Program for the SYM-1» Chris 
Sullivany 9 Galsworthy Placer Bucklands Beachy Aucklandy New Zealand» 
im MICRO No. 7» Oct-Nov 1978» pr 45-46) to use the score display in 
Place of the LED Display» so I have a feelings for how to do the Job. 
Will be harry to corresrond with anyone who needs helry and will Pub- 
lish the first successful Score Terminal Prosdram submitted, I am 
giving Mr. Sullivan’s address as published in MICRO: for the benefit 

of 211 of our many Australia/New Zealand subscribers, 
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ALL PRICES GIVEN BELOW ARE NOW OBSOLETE. FLEASE USE PRICES 
GIVEN ON THE MOST RECENTLY ISSUED *SHOFFING LIST". 


SHOPFING LIST OF ITEMS AVAILABLE FROM SYM-1i USERS’ GROUF 


PAID 


Chico, CA 95927 


2K SYMBOLIC ASSEMBLER MANUAL (BY ROBERT DENISON) 
$10.25 IN US FUNDS-FIRST CLASS POSTFAID FOR NO. AMERICAN COUNTRIES. 


$11.00 IN US FUNDS-AIR MAIL POSTPAID FOR EUROPEAN COUNTRIES. 
$12.00 IN US FUNDS-AIR MAIL POSTPAID FOR ASIA/PACIFIC COUNTRIES. 
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U.S. Postage 


2K SYMBOLIC ASSEMBLER ON CASSETTE TAPE 
$5.35 IN US FUNDS-FIRST CLASS FOSTFPAID FOR NO. AMERICAN COUNTRIES. 
$5.75 IN US FUNDS-AIR MAIL POSTFAID FOR EUROPEAN COUNTRIES. 
$6.75 IN US FUNDS-AIR MAIL POSTPAID FOR ASIA/PACIFIC COUNTRIES, 


SYNERTEK TECHNICAL NOTES 
$4,10 IN US FUNDS-FIRST CLASS POSTPAID FOR NO. AMERICAN COUNTRIES. 
$4.60 IN US FUNDS-AIR MAIL POSTPAID FOR EUROPEAN COUNTRIES, 
$5.60 IN US FUNDS-AIR MAIL POSTPAIL FOR ASIA/PACIFIC COUNTRIES, 


SUPERMON VERSION 2(MON 1.1) 
$16.00 IN US FUNDS-FIRST CLASS FOSTPAID FOR NO. AMERICAN COUNTRIES. 


$17.00 IN US FUNDS-AIR MAIL FOSTPAID FOR EUROPEAN COUNTRIES. 
$18.00 IN US FUNDS-AIR MAIL POSTPAID FOR ASIA/PACIFIC COUNTRIES. 


RAE-1/2 (THIS IS THE TWO CHIP VERSION BUT BOTH CHIPS MAY BE MOUNTED 
IN ONE SOCKET. FULL INSTRUCTIONS SUPPLIED ALONG WITH EXCLU- 
SIVE UPDATING SERVICE DESCRIBING ADDITIONAL FEATURES NOT 
DESCRIBED IN THE SYNERTEK MANUAL). 
$99 IN US FUNDS-AIR MAILED POSTPAID-INSURED ANYWHERE IN THE WORLD, 


SCHEMATIC DIAGRAM OF SYM-1 
$1.50 IN US FUNDS-AIR MAIL POSTPAID ANYWHERE IN THE WORLD, 


We are truly sorry to have to raise our shirrins and handling charges but 
we found we underestimated the cost of the racking materiels and rostase 
after we were swamred with orders for the above items. The Prices aquoted 
in the Introductory Issue did not take care of the costs, and we simply 
mailed the item and paid for it out of rocket. Some of our Summers» 
themselves, realized our error and remitted 2 little more than was 

auoted in SYM-PHYSIS. We thank them for being so thoughtful. We know 
our overseas buyers can save money on the rostade by letting us send 
items by slow boats but our policy is to send everything Air Mail un- 
less otherwise reauested, 


A sood Source for Cassette Tares is BOB MYERS, 109 FIRE LANE» NORTH CAPE 
MAY» NJ 08204. His prices are $6.50 US for 10-50 foot Cassettes in soft 
Plastic boxes-for hard boxes rlease add 50 cents. 4th. class rostraid. 


We will be teachings a week-end course called "Microrrocessor Fundamentals, 
for the University of California at Davis, January 25-277 1980. The course 
fee is $450.00» and each student will receive a SYM-1 rlus some software 
doodies. If interested, please contacts University Extension, University 


of Californias Davisy DavisrCA 95616, 


SYM-PHYSIS 


Permit # 430 


SYM-1 Users’ Group 
P.O. Box 315 


Chico, CA 95927 


TIME VALUE PRINTED MATTER 


Address Correction Requested 


